home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
earcd
/
grafica
/
ppaint-demo
/
rexx
/
animcharpath.pprx
< prev
next >
Wrap
Text File
|
1998-01-24
|
64KB
|
2,084 lines
/* Personal Paint Amiga Rexx script - Copyright © 1997 Cloanto Italia srl */
/* $VER: AnimCharPath.pprx 1.1 */
/** ENG
This script can be used to easily create animations with
moving and transforming characters (vector fonts).
The main requester gives access to the following commands:
- New: the path is cleared and the character settings are restored
to their default values.
- Load: an existing path file can be selected using the file requester;
this causes the path coordinates, the brush transformation settings
and the animation settings to be loaded (note: this data
is stored in ASCII format and can easily be algorithmically
generated and manipulated by other programs).
- Save: this command writes a path file using the current path data.
- Define Freehand: the mouse can be used to "draw" the path;
both the direction of the path and the mouse movement speed
affect the resulting animation: the original direction
is used to render the frames (the starting point is used
to place the object in the first frame and the last point
is used for the last frame) and the drawing speed
affects the number and the "density" of stored points
(the slower the speed, the more points, and
vice versa) and defines the perceived speed of the animation
(e.g. a path defined with a high initial speed and a slow
ending speed leads to a corresponding animation).
Before the mouse button is pressed, the character is displayed
to ease positioning in the first frame. All drawing must occur
holding down the left mouse button, releasing it only at the
end of the definition.
- Define Linear: the mouse can be used to define a linear path
(simply consisting of a starting point and an ending point);
unlike the freehand path, this kind of path produces a
constant-speed animation (equally-spaced intermediate points
are generated automatically). To define the path, press the left
mouse button on the starting point, and release it at the end.
- Edit: this command can be used to visually edit the path;
the "path points" can be dragged with the mouse to change the
path shape and/or density (speed); the <m> key toggles
the magnify mode on or off, and the right mouse button or the <Esc> key
can be pressed to leave the editing mode.
- Move and Resize: the mouse can be used to resize the animation
path (clicking on the lower right part of the path) or to drag it
to a new position (clicking on the upper part). This is useful
to create paths with point outside the screen, which cannot be
drawn by hand. The <m> key toggles the magnify mode on or off, and
the right mouse button or the <Esc> key can be pressed
to exit from the move and resize mode.
- Character: the character requester can be used to select the
font to be used (the "Vector Font Path Selection" macro must be
run to select a font path other than "FONTS:"), the character,
its (initial) size, the handle position ("Base Left", "Base Center",
"Center") and the antialias level ("None", "Low", "Medium", "High").
- Character Angle: the Character Angle requester is used to set
the number of character rotations ("Rotation Cycles"), the starting
("From Angle") and ending angle ("To Angle"), and the
rotation direction ("Direction": "Clockwise/Counterclockwise");
a number of rotations greater than 1 can be used to add
additional 360° spins in the specified direction.
- Character Shear: the Character Shear requester is used to set
the number of shear cycles ("Shear Cycles"), and the starting and
ending shear level ("From Angle", "To Angle"); if a number of
shear cycles greather than 1 is specified,
the shear factors will move back and forth within the specified
limits (an odd number of cycles must be used to reach the ending
shear in the last frame).
- Character Boldness: the Character Boldness requester is used to set
the number of boldness cycles, the starting and
ending horizontal boldness level ("From Horizontal" and "To Horizontal"),
and the starting and ending vertical boldness ("From Vertical" and
"To Vertical"); if a number of cycles greather than 1
is specified, the boldness levels will move back and forth within
the specified limits (an odd number of cycles must be used to reach
the ending boldness in the last frame).
- Character Size: the Character Size requester is used to set
the number of resize cycles ("Resize Cycles"), and the starting and
ending size ("From" and "To", in percentage of the initial size);
if a number of resize cycles greather than 1 is specified,
the resize factor will move back and forth within the specified
limits (an odd number of cycles must be used to reach the ending
size in the last frame).
- Data: the Data requester is used to view all path information
at a glance (animation, character, rotation, shear, boldness
and resize settings, followed by the path coordinates).
- Preview: this command is used to preview the animation (no antialiasing
is applied in preview mode).
The main requester also contains gadgets to set the animation
frames ("Count"), the recording direction ("Direction":
"Forward/Backward/Still" - the frame step) and the frame insertion option
("Add Frames" - if active, "Count" frames are inserted).
When using freehand paths with no character effect, the "Count"
setting should not be set to a number greater than the path points
(as reported by the Data requester), as this would generate one or more
duplicate frames.
The bottom gadgets in the main requester can be used to render
the animation ("Draw", which also terminates the script) or to
quit the script ("Quit"). A copy of the current path is
always temporarily stored, so that it can be used when the script is
run again.
*/
/** DEU
Dieses Skript ermöglicht die einfache Erzeugung von Animationen, in deren
Verlauf Schriftzeichen aus Vektorfonts bewegt und verwandelt werden.
Im Haupt-Dialogfenster erfolgt der Zugriff auf folgende Befehle:
- Neu: Löscht den alten Pfad und setzt die Zeicheneinstellungen auf ihre
Standardwerte zurück.
- Laden: Mit dem Dateiauswahlfenster läßt sich eine zurvor gespeicherte
Pfaddatei auswählen. Dabei werden Pfadkoordinaten, Einstellungen für die
Pinseltransformation und verschiedene Animationseinstellungen geladen.
Hinweis: Diese Daten liegen im ASCII-Format vor und lassen sich daher auf
einfache Weise mit Hilfe anderer Programme algorithmisch erzeugen und/oder
verändern.
- Speichern: Schreibt eine Pfaddatei unter Verwendung der aktuellen
Pfaddaten.
- Frei festlegen: Ermöglicht die Bestimmung des Pfades mit Hilfe der Maus.
Sowohl dessen Verlauf als auch die Geschwindigkeit der Mausbewegung
beeinflussen den späteren Animationsablauf: Die ursprüngliche Richtung wird
zur Berechnung der Einzelbilder verwendet (Das erste Einzelbild wird am
Startpunkt berechnet, das letzte dementsprechend am Zielpunkt), während die
Geschwindigkeit des Zeichenvorgangs sowohl Anzahl als auch Abstand
("Dichte") der gespeicherten Punkte beeinflußt. Dabei gilt: Je geringer die
Geschwindigkeit, desto mehr Punkte, und umgekehrt. Auch die
Ablaufgeschwindigkeit hängt von diesem Faktor ab, d. h. ein mit hoher
Anfangs- und geringer Endgeschwindigkeit definierter Pfad erzeugt eine
dementsprechend mit zunehmend geringerer Geschwindigkeit ablaufende
Animation. Um die Festlegung der Position für das erste Einzelbild zu
erleichtern, wird vor der Betätigung der linken Maustaste das aktuelle
Zeichen angezeigt.
- Linear festlegen: Ermöglicht die Bestimmung eines linearen Pfades,
welcher lediglich durch Anfangs- und Endpunkt festgelegt wird. Im Gegensatz
zum frei festgelegten Pfad wird hierdurch eine Animation erzeugt, die über
ihren gesamten Verlauf hinweg eine konstante Geschwindigkeit beibehält, da
die Zwischenpunkte automatisch alle im gleichen Abstand voneinander
angeordnet werden.
- Bearbeiten: Dient zur visuellen Bearbeitung des Pfades. Durch Verschieben
der einzelnen Knotenpunkte des Pfades mit der Maus lassen sich Form und
Dichte (Geschwindigkeit) ändern. Mit Hilfe der Taste <m> läßt sich die
Lupenfunktion an- oder ausschalten. Um den Bearbeitungsmodus zu verlassen,
ist die <Esc>-Taste zu drücken.
- Position und Größe: Hiermit lassen sich unter Verwendung der Maus
Position (durch Anklicken des rechten unteren Pfadteils) und Größe (durch
Anklicken des oberen Teils) des Animationspfades ändern. Dies eignet sich
besonders zur Erzeugung von Animationspfaden, die aus dem sichtbaren Bereich
hinauslaufen, da sich diese nicht von Hand zeichnen lassen. Mit <m> läßt
sich jederzeit die Lupe an- oder ausschalten, und mit <Esc> wird der Modus
"Position und Größe" verlassen.
- Zeichen: In diesem Zeichenauswahl-Dialogfenster werden der gewünschte
Font, das Zeichen, dessen Anfangsgröße, die Griffpunktposition "Basis
Links", "Basis Mitte", "Mitte" und der Grad der Kantenglättung "Keine",
"Gering", "Mittel", "Hoch") eingestellt. Hinweis: Um einen anderen Fontpfad
als "FONTS:" zu wählen, muß zuvor das Makro "Vektorfont-Pfadauswahl"
ausgeführt werden.
- Zeichen drehen: In diesem Dialogfenster werden die Anzahl der Umdrehungen
("Umdrehungen"), der Startwinkel ("Startwinkel"), der Zielwinkel
("Zielwinkel") und der Drehsinn ("Drehsinn "Rechts herum/Links herum"
festgelegt; durch die Angabe eines Wertes > 1 lassen sich zusätzliche volle
Umdrehungen erzeugen.
- Zeichen kippen: In diesem Dialogfenster werden die Anzahl der
Kippdurchläufe ("Durchläufe") und der Anfangs- und Endwinkel des
Kippvorgangs ("Von Winkel", "Bis Winkel") festgelegt; durch die Angabe eines
Kipp-Wertes > 1 pendeln die Kippwerte zwischen den angegebenen Grenzwerten
hin und her. Hinweis: Um den Kipp-Endwert beim letzten Einzelbild zu
erreichen, muß eine gerade Anzahl von Durchläufen angegeben werden.
- Zeichendicke: In diesem Dialogfenster werden die Anzahl der Durchläufe,
der Start- und Endwert für die horizontale Zeichendicke ("Von Horizontal"
und "Bis Horizontal") und der Start- und Endwert für die vertikale
Zeichendicke ("Von Vertikal") und ("Bis Vertikal") festgelegt. Wenn mehr als
ein Durchlauf festgelegt wird, pendeln die Dickewerte zwischen den beiden
Grenzwerten hin und her. Hinweis: Um den Dicke-Endwert beim letzten
Einzelbild zu erreichen, muß eine gerade Anzahl von Durchläufen angegeben
werden.
- Zeichengröße: Dieses Dialogfenster dient zum Einstellen der
Änderungsdurchläufe für die Zeichengröße ("Durchläufe"), der Start- und
Zielgröße ("Von" und "Bis" in Prozent der ursprünglichen Größe); wenn mehr
als ein Durchlauf festgelegt wird, pendelt der Wert für für die
Größenänderung zwischen den angegebenen Grenzwerten hin und her. Hinweis: Um
den Endwert beim letzten Einzelbild zu erreichen, muß eine gerade Anzahl von
Durchläufen angegeben werden.
- Im Daten-Dialogfenster werden alle Pfadinformationen auf einen Blick
dargestellt: Animation, Zeichen, Umdrehung, Kippwerte, Dicke,
Größeneinstellungen und Pfadkoordinaten.
- Vorschau: Mit diesem Befehl läßt sich eine Vorschau der Animation
betrachten. Im Vorschaumodus wird keine Kantenglättung angewendet.
- Das Haupt-Dialogfenster enthält daneben auch Funktionen zum Festlegen der
Einzelbilder einer Animation ("Zähler"), der Aufzeichnungsrichtung
("Richtung": "Vorwärts/Rückwärts/Stillstand" - die Schrittweite) und zum
Einfügen von Einzelbildern ("Bilder add." - wenn aktiviert, werden unter
"Zähler" Bilder hinzugefügt).
Bei der Verwendung eines frei festgelegten Pfades ohne einen Pinseleffekt
sollte der "Zähler"-Wert die Anzahl der Knotenpunkte des Pfades (wie im
Daten-Dialogfenster angezeigt) nicht überschreiten, da dies zur Duplizierung
eines oder mehrerer Einzelbilder führen würde.
Die unteren Funktionselemente im Haupt-Dialogfenster dienen zum Erzeugen der
Animation ("Zeichnen", dient auch zum Abbrechen des Skripts) und zum Beenden
des Skripts ("Verlassen"). Es wird immer eine temporäre Kopie des aktuellen
Pfades gespeichert, die bei einem erneuten Start des aktuellen Skripts
geladen wird.
*/
/** ITA
Si può usare questo script per creare facilmente animazioni con caratteri
che si muovono e trasformano (font vettoriali).
La finestra di dialogo principale mette a disposizione i seguenti comandi:
- Nuovo: il percorso è cancellato e le impostazioni del carattere
sono riportate ai loro valori predefiniti.
- Leggere: si può scegliere un file di percorso già esistente tramite la
finestra di scelta file; ciò comporta il caricamento delle coordinate del
percorso, delle impostazioni di trasformazione del pennello e di quelle
relative all'animazione (nota: tali dati sono immagazzinati in formato
ASCII e possono essere facilmente generati tramite algoritmi nonché
manipolati da altri programmi).
- Scrivere: Questo comando salva un file di percorso usando i dato del percorso
corrente.
- Definire a mano libera: si può usare il mouse per "tracciare" il percorso;
l'animazione risultante è influenzata sia dalla direzione del percorso sia
dalla velocità di spostamento del mouse: la direzione originale è usata
per disegnare i fotogrammi (il punto di partenza è utilizzato per piazzare
l'oggetto nel primo fotogramma e l'ultimo punto è usato per il fotogramma
finale) mentre la velocità del tracciamento influenza il numero e la
"densità" dei punti memorizzati (tanto è più lenta la velocità, tanto
maggiore il numero dei punti, e viceversa) e definisce la velocità
percepita dell'animazione (es. un percorso definito con una alta velocità
iniziale ed una bassa velocità finale porta ad una animazione con
caratteristiche corrispondenti). Per facilitare il posizionamento del
primo fotogramma, prima che sia premuto il pulsante del mouse viene
visualizzato il carattere. Il pulsante del mouse va rilasciato solo a
percorso completato.
- Definire lineare: si può usare il mouse per definire un percorso lineare
(che consiste semplicemente di un punto di partenza e uno d'arrivo);
a differenza del percorso a mano libera, questo tipo di percorso produce
una animazione a velocità costante (i punti intermedi sono generati in modo
automatico a distanze tra loro eguali). Per definire il percorso,
premere il pulsante sinistro del mouse all'inizio del percorso, e
rilasciarlo alla fine.
- Modificare: si può usare questo comando per modificare in modo
visivo il percorso; i "punti del percorso" possono essere spostati col
mouse per cambiare la forma del percorso e/o la densità (velocità); il
tasto <m> attiva/disattiva l'ingrandimento, ed il tasto destro del mouse
o il tasto <Esc> possono essere premuti per uscire dalla modalità di
modifica percorso.
- Spostare e ridimensionare: si può usare il mouse per ridimensionare il
percorso dell'animazione (facendo click sulla parte inferiore destra dello
stesso) o spostarlo in una nuova posizione (facendo click sulla parte
superiore). Ciò è utile per creare percorsi con punti all'esterno dello
schermo, che non si possono piazzare manualmente. Il tasto <m>
attiva/disattiva l'ingrandimento, ed il tasto destro del mouse o il tasto
<Esc> possono essere premuti per uscire dalla modalità di spostamento e
ridimensionamento.
- Carattere: si può usare la finestra di selezione caratteri per scegliere
il font da usare (si deve lanciare la macro "VectorFontPath.pprx"
per scegliere un percorso font diverso da "FONTS:"), il carattere,
il suo (iniziale) corpo, la posizione della maniglia di ridimensionamento
("Base sinistra", "Base centro", "Centro") e il livello di smorzamento
seghettature - o antialias ("Nessuno", "Basso", "Medio", "Alto").
- Angolo carattere: si usa la finestra di dialogo Angolo carattere
per impostare il numero di rotazioni del carattere ("Cicli rotazione"),
l'angolo iniziale ("Da angolo") e finale ("Ad angolo"), e la direzione
della rotazione ("Senso": "Orario/Antiorario"); si può usare un numero di
rotazioni maggiore di 1 per aggiungere ulteriori avvitamenti a 360° nella
direzione specificata.
- Inclinazione carattere: si usa la finestra di dialogo Inclinazione carattere
per impostare il numero di cicli di inclinazione ("Cicli inclinazione"), e
il livello di inclinazione iniziale e finale ("Da angolo", "Ad angolo");
se si specifica un numero di cicli di inclinazione maggiore di 1, i fattori
di inclinazione si muoveranno avanti ed indietro entro i limiti specificati
(si deve usare un numero dispari di cicli per raggiungere l'inclinazione
finale nell'ultimo fotogramma).
- Spessore carattere: si usa la finestra di dialogo Spessore carattere per
impostare il numero di cicli di spessore, il livello iniziale e finale di
spessore orizzontale ("Da orizzontale" e "A orizzontale"), lo spessore
verticale iniziale e finale ("Da verticale" e "A verticale"); se si
specifica un numero di cicli maggiore di 1, i livelli di spessore si
muoveranno avanti ed indietro entro i limiti specificati (si deve usare un
numero dispari di cicli per raggiungerelo spessore finale nell'ultimo
fotogramma).
- Dimensioni carattere: si usa la finestra di dialogo Dimensioni carattere per
impostare il numero di cicli di ridimensionamento ("Cicli
ridimensionamento"), e la dimensione iniziale e finale ("Da" e "A", in
percentuale della dimensione iniziale); se si specifica un numero di cicli
di ridimensionamento maggiore di 1, il fattore di ridimensionamento si
muoverà avanti ed indietro entro i limiti specificati (si deve usare un
numero dispari di cicli per raggiungere la dimensione finale nell'ultimo
fotogramma).
- Dati: si usa la finestra di dialogo Dati percorso per vedere tutte
le informazioni relative al percorso con un solo colpo d'occhio
(impostazioni per animazione, carattere, rotazione, inclinazione, spessore,
ridimensionamento, seguite dalle coordinate del percorso).
- Anteprima: si usa questo comando per vedere una anteprima dell'animazione
(nella modalità di anteprima non è attivato lo smorzamento seghettature).
La finestra principale contiene anche pulsanti per impostare il numero di
fotogrammi dell'animazione ("Passi"), la direzione di registrazione
("Direzione": "Avanti/Indietro/Fermo" - il passo fotogramma) e l'opzione per
l'inserimento di fotogrammi ("Aggiunta fotogrammi" - se è attiva, saranno
inseriti tanti fotogrammi quanti indicato da "Passi").
Quando si usano percorsi a mano libera senza effetti sul carattere, il numero
specificato in "Passi" non dovrebbe essere maggiore del numero di punti del
percorso (come riferito dalla finestra di dialogo Dati percorso), perché in
questo modo si otterrebbero uno o più fotogrammi doppi.
Si possono usare i pulsanti sulla parte inferiore della finestra di dialogo
principale per realizzare l'animazione ("Animare", che inoltre fa terminare
lo script) o per uscire dallo script ("Uscire"). Una copia del percorso
corrente è sempre immagazzinata temporaneamente, perché sia possibile usarla
quando si avvia nuovamente lo script.
*/
IF ARG(1, EXISTS) THEN
PARSE ARG PPPORT
ELSE
PPPORT = 'PPAINT'
IF ~SHOW('P', PPPORT) THEN DO
IF EXISTS('PPaint:PPaint') THEN DO
ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
DO 30 WHILE ~SHOW('P',PPPORT)
ADDRESS COMMAND 'Wait >NIL: 1 SEC'
END
END
ELSE DO
SAY "Personal Paint could not be loaded."
EXIT 10
END
END
IF ~SHOW('P', PPPORT) THEN DO
SAY 'Personal Paint Rexx port could not be opened'
EXIT 10
END
ADDRESS VALUE PPPORT
OPTIONS RESULTS
OPTIONS FAILAT 10000
Get 'LANG'
IF RESULT = 1 THEN DO /* Deutsch */
global.txt_title_menu = 'AnimZeichen-Pfad'
global.txt_title_new = 'Neuer Animationspfad'
global.txt_title_load = 'Animationspfad laden'
global.txt_title_save = 'Animationspfad speichern'
global.txt_title_fhand = 'Pfad frei festlegen'
global.txt_title_line = 'Pfad linear festlegen'
global.txt_title_edit = 'Animationspfad bearbeiten'
global.txt_title_movrs = 'Pfadposition/Größe ändern'
global.txt_title_char = 'Zeichen'
global.txt_title_crot = 'Zeichen drehenl'
global.txt_title_cshr = 'Zeichen kippen'
global.txt_title_cbold = 'Zeichendicke'
global.txt_title_cresz = 'Zeichengröße'
global.txt_title_pview = 'Pfadvorschau'
global.txt_title_draw = 'Animation zeichnen'
global.txt_title_data = 'Pfadinformationen'
global.txt_menu_new = 'Neu'
global.txt_menu_load = 'Laden...'
global.txt_menu_save = 'Speichern...'
global.txt_menu_fhand = 'Frei festlegen'
global.txt_menu_line = 'Linear festlegen'
global.txt_menu_edit = 'Bearbeiten'
global.txt_menu_movrs = 'Position/Größe'
global.txt_menu_char = 'Zeichen...'
global.txt_menu_crot = 'Zeichen drehen...'
global.txt_menu_cshr = 'Zeichen kippen...'
global.txt_menu_cbold = 'Zeichendicke...'
global.txt_menu_cresz = 'Zeichengröße...'
global.txt_menu_data = 'Informationen...'
global.txt_menu_prview = 'Vorschau'
global.txt_gad_count = 'Z_ähler:'
global.txt_gad_add = '_Frames add.:'
global.txt_gad_noyes.0 = 'Nein'
global.txt_gad_noyes.1 = 'Ja'
global.txt_gad_direct = '_Richtung:'
global.txt_gad_dirct.0 = 'Vorwärts'
global.txt_gad_dirct.1 = 'Rückwärts'
global.txt_gad_dirct.2 = 'Stillstand'
global.txt_gad_draw = '_Zeichnen'
global.txt_gad_quit = '_Verlassen'
global.txt_gad_font = '_Font:'
global.txt_gad_char = 'Zeiche_n:'
global.txt_gad_size = '_Größe:'
global.txt_gad_handle = 'G_riffpunkt:'
global.txt_gad_aalias = '_Kantenglättung:'
global.txt_gad_aals.0 = 'Keine'
global.txt_gad_aals.1 = 'Gering'
global.txt_gad_aals.2 = 'Mittel'
global.txt_gad_aals.3 = 'Hoch'
global.txt_gad_handl.0 = 'Basis links'
global.txt_gad_handl.1 = 'Basis Mitte'
global.txt_gad_handl.2 = 'Mitte'
global.txt_gad_rotats = '_Umdrehungen:'
global.txt_gad_fromang = '_Startwinkel:'
global.txt_gad_toang = '_Zielwinkel:'
global.txt_gad_rotdir = '_Richtung:'
global.txt_gad_rotdr.0 = 'Rechts herum'
global.txt_gad_rotdr.1 = 'Links herum'
global.txt_gad_shears = '_Durchläufe:'
global.txt_gad_fromsh = '_Von Winkel:'
global.txt_gad_tosh = '_Bis Winkel:'
global.txt_gad_resizes = '_Durchläufe:'
global.txt_gad_fromrs = '_Von (%):'
global.txt_gad_tors = '_Bis (%):'
global.txt_gad_bolds = '_Durchläufe:'
global.txt_gad_frombdx = '_Von Horizontal:'
global.txt_gad_tobdx = '_Bis Horizontal:'
global.txt_gad_frombdy = 'V_on Vertikal:'
global.txt_gad_tobdy = 'B_is Vertikal:'
global.txt_msg_points = 'Punkte:'
global.txt_msg_ptype.0 = '(Freier Pfad)'
global.txt_msg_ptype.1 = '(Linearer Pfad)'
global.txt_err_oldcl = 'Dieses Skript erfordert eine neuere_Version von Personal Paint'
global.txt_err_lost = 'Pfaddaten gehen verloren'
global.txt_err_load = 'Pfaddatei kann nicht geöffnet werden'
global.txt_err_nopath = 'Keine Pfaddefinition vorhanden'
global.txt_err_save = 'Pfad kann nicht gespeichert werden'
global.txt_err_notbsh = 'Zu wenig Platz für tempörären Pinsel'
global.txt_err_nofonts = 'Vektorschriften nicht auffindbar'
global.txt_err_rend = 'Fehler bei der Zeichenerzeugung'
END
ELSE IF RESULT = 2 THEN DO /* Italiano */
global.txt_title_menu = 'Percorso AnimCharacter'
global.txt_title_new = 'Nuovo percorso AnimCharacter'
global.txt_title_load = 'Leggere percorso AnimCharacter'
global.txt_title_save = 'Scrivere percorso AnimCharacter'
global.txt_title_fhand = 'Definire a mano libera'
global.txt_title_line = 'Definire lineare'
global.txt_title_edit = 'Modificare percorso AnimCharacter'
global.txt_title_movrs = 'Spostare percorso AnimCharacter'
global.txt_title_char = 'Carattere'
global.txt_title_crot = 'Angolo carattere'
global.txt_title_cshr = 'Inclinazione carattere'
global.txt_title_cbold = 'Spessore carattere'
global.txt_title_cresz = 'Dimensione carattere'
global.txt_title_pview = 'Anteprima animazione'
global.txt_title_draw = 'Creare animazione'
global.txt_title_data = 'Dati percorso animazione'
global.txt_menu_new = 'Nuovo'
global.txt_menu_load = 'Leggere...'
global.txt_menu_save = 'Scrivere...'
global.txt_menu_fhand = 'Definire a mano libera'
global.txt_menu_line = 'Definire lineare'
global.txt_menu_edit = 'Modificare'
global.txt_menu_movrs = 'Spostare e ridimensionare'
global.txt_menu_char = 'Carattere...'
global.txt_menu_crot = 'Angolo carattere...'
global.txt_menu_cshr = 'Inclinazione carattere...'
global.txt_menu_cbold = 'Spessore carattere...'
global.txt_menu_cresz = 'Dimensione carattere...'
global.txt_menu_data = 'Dati...'
global.txt_menu_prview = 'Anteprima'
global.txt_gad_count = 'Pa_ssi:'
global.txt_gad_add = 'Aggiunta _fotogrammi:'
global.txt_gad_noyes.0 = 'No'
global.txt_gad_noyes.1 = 'Sì'
global.txt_gad_direct = 'Direzi_one:'
global.txt_gad_dirct.0 = 'Avanti'
global.txt_gad_dirct.1 = 'Indietro'
global.txt_gad_dirct.2 = 'Fermo'
global.txt_gad_draw = '_Animare'
global.txt_gad_quit = '_Uscire'
global.txt_gad_font = '_Font:'
global.txt_gad_char = '_Carattere:'
global.txt_gad_size = '_Dimensione:'
global.txt_gad_handle = '_Impugnatura:'
global.txt_gad_aalias = 'An_tialias:'
global.txt_gad_aals.0 = 'Nessuno'
global.txt_gad_aals.1 = 'Basso'
global.txt_gad_aals.2 = 'Medio'
global.txt_gad_aals.3 = 'Alto'
global.txt_gad_handl.0 = 'Base sinistra'
global.txt_gad_handl.1 = 'Base centro'
global.txt_gad_handl.2 = 'Centro'
global.txt_gad_rotats = 'Cicli _rotazione:'
global.txt_gad_fromang = '_Da angolo:'
global.txt_gad_toang = 'Ad a_ngolo:'
global.txt_gad_rotdir = '_Senso:'
global.txt_gad_rotdr.0 = 'Orario'
global.txt_gad_rotdr.1 = 'Antiorario'
global.txt_gad_shears = 'Cicli _inclinazione:'
global.txt_gad_fromsh = '_Da angolo:'
global.txt_gad_tosh = 'Ad a_ngolo:'
global.txt_gad_resizes = 'Cicli _ridimensionamento:'
global.txt_gad_fromrs = '_Da (%):'
global.txt_gad_tors = 'A (_%):'
global.txt_gad_bolds = 'Cicli _spessore:'
global.txt_gad_frombdx = '_Da orizzontale:'
global.txt_gad_tobdx = 'A ori_zzontale:'
global.txt_gad_frombdy = 'Da _verticale:'
global.txt_gad_tobdy = 'A ver_ticale:'
global.txt_msg_points = 'Punti:'
global.txt_msg_ptype.0 = '(percorso a mano libera)'
global.txt_msg_ptype.1 = '(percorso lineare)'
global.txt_err_oldcl = 'Questa procedura richiede_una versione più recente_di Personal Paint'
global.txt_err_lost = 'Il percorso sarà cancellato'
global.txt_err_load = 'Il file non può essere aperto'
global.txt_err_nopath = 'Non è stato definito alcun percorso'
global.txt_err_save = 'Il percorso non può essere scritto'
global.txt_err_notbsh = 'Non vi è spazio per il pennello temporaneo'
global.txt_err_nofonts = 'Non vi sono font vettoriali'
global.txt_err_rend = 'Errore nella creazione del carattere'
END
ELSE DO /* English */
global.txt_title_menu = 'AnimCharacter Path'
global.txt_title_new = 'New AnimCharacter Path'
global.txt_title_load = 'Load AnimCharacter Path'
global.txt_title_save = 'Save AnimCharacter Path'
global.txt_title_fhand = 'Define Freehand Path'
global.txt_title_line = 'Define Linear Path'
global.txt_title_edit = 'Edit AnimCharacter Path'
global.txt_title_movrs = 'Move/Resize AnimCharacter Path'
global.txt_title_char = 'Character'
global.txt_title_crot = 'Character Angle'
global.txt_title_cshr = 'Character Shear'
global.txt_title_cbold = 'Character Boldness'
global.txt_title_cresz = 'Character Size'
global.txt_title_pview = 'Preview Path'
global.txt_title_draw = 'Draw Animation'
global.txt_title_data = 'AnimCharacter Path Data'
global.txt_menu_new = 'New'
global.txt_menu_load = 'Load...'
global.txt_menu_save = 'Save...'
global.txt_menu_fhand = 'Define Freehand'
global.txt_menu_line = 'Define Linear'
global.txt_menu_edit = 'Edit'
global.txt_menu_movrs = 'Move and Resize'
global.txt_menu_char = 'Character...'
global.txt_menu_crot = 'Character Angle...'
global.txt_menu_cshr = 'Character Shear...'
global.txt_menu_cbold = 'Character Boldness...'
global.txt_menu_cresz = 'Character Size...'
global.txt_menu_data = 'Data...'
global.txt_menu_prview = 'Preview'
global.txt_gad_count = 'C_ount:'
global.txt_gad_add = 'Add _Frames:'
global.txt_gad_noyes.0 = 'No'
global.txt_gad_noyes.1 = 'Yes'
global.txt_gad_direct = 'Directi_on:'
global.txt_gad_dirct.0 = 'Forward'
global.txt_gad_dirct.1 = 'Backward'
global.txt_gad_dirct.2 = 'Still'
global.txt_gad_draw = '_Draw'
global.txt_gad_quit = '_Quit'
global.txt_gad_font = '_Font:'
global.txt_gad_char = 'Ch_aracter:'
global.txt_gad_size = '_Size:'
global.txt_gad_handle = '_Handle:'
global.txt_gad_aalias = 'An_tialias:'
global.txt_gad_aals.0 = 'None'
global.txt_gad_aals.1 = 'Low'
global.txt_gad_aals.2 = 'Medium'
global.txt_gad_aals.3 = 'High'
global.txt_gad_handl.0 = 'Base Left'
global.txt_gad_handl.1 = 'Base Center'
global.txt_gad_handl.2 = 'Center'
global.txt_gad_rotats = '_Rotation Cycles:'
global.txt_gad_fromang = '_From Angle:'
global.txt_gad_toang = '_To Angle:'
global.txt_gad_rotdir = '_Direction:'
global.txt_gad_rotdr.0 = 'Clockwise'
global.txt_gad_rotdr.1 = 'Counterclockwise'
global.txt_gad_shears = '_Shear Cycles:'
global.txt_gad_fromsh = '_From Angle:'
global.txt_gad_tosh = '_To Angle:'
global.txt_gad_resizes = 'Re_size Cycles:'
global.txt_gad_fromrs = '_From (%):'
global.txt_gad_tors = '_To (%):'
global.txt_gad_bolds = '_Boldness Cycles:'
global.txt_gad_frombdx = '_From Horizontal:'
global.txt_gad_tobdx = '_To Horizontal:'
global.txt_gad_frombdy = 'F_rom Vertical:'
global.txt_gad_tobdy = 'T_o Vertical:'
global.txt_msg_points = 'Points:'
global.txt_msg_ptype.0 = '(freehand path)'
global.txt_msg_ptype.1 = '(linear path)'
global.txt_err_oldcl = 'This script requires a newer_version of Personal Paint'
global.txt_err_lost = 'The path will be lost'
global.txt_err_load = 'The path file cannot be opened'
global.txt_err_nopath = 'No path has been defined'
global.txt_err_save = 'The path cannot be saved'
global.txt_err_notbsh = 'No space for temporary brush'
global.txt_err_nofonts = 'Vector fonts not found'
global.txt_err_rend = 'Character rendering error'
END
Version 'REXX'
IF RESULT < 7 THEN DO
RequestNotify 'PROMPT "'global.txt_err_oldcl'"'
EXIT 10
END
tmpname = 'T:PP_AnimCharPath'
global.fontnum = 0
global.pathdisp = 1
CALL DefData
LockGUI
GetPaintMode
global.savepmode = RESULT
GetBrushAttributes 'WIDTH'
global.bshw = RESULT
GetBrushAttributes 'HEIGHT'
global.bshh = RESULT
GetBrushAttributes 'HANDLEX'
global.bshhx = RESULT
GetBrushAttributes 'HANDLEY'
global.bshhy = RESULT
GetBrushAttributes 'FRAMES'
global.savebshfr = RESULT
GetBrushAttributes 'FRAMEPOSITION'
global.savebshfp = RESULT
GetBrushNumber
global.savebshnum = RESULT
GetCurrentBrush
global.savebsh = RESULT
SetCurrentBrush 'UNUSED'
IF RC ~= 0 THEN DO
RequestNotify 'TITLE "'global.txt_title_menu'" PROMPT "'global.txt_err_notbsh'"'
UnlockGUI
EXIT 0
END
GetBrushNumber
global.tbshnum = RESULT
SetCurrentBrush 'RECTANGULAR WIDTH 1 HEIGHT 1'
GetPen 'FOREGROUND'
global.savepen = RESULT
Get 'COLORS'
global.xorpen = RESULT-1
SetPen 'FOREGROUND' global.xorpen
Get 'BARS'
savebars = RESULT
Set '"BARS=0"'
Get 'GCLIP'
saveclip = RESULT
Set '"GCLIP=0"'
Get 'COORD'
savecoord = RESULT
Set '"COORD=0"'
DisableTools
UnlockGUI
SIGNAL ON Break_C
/* load last used path and display it */
CALL LoadPathFile(tmpname)
CALL XorPath
Get 'SCREENH'
IF RESULT < 225 THEN
mrows = 11
ELSE
mrows = 14
command = 0
DO FOREVER
Request '"'global.txt_title_menu'" COMPACT ',
'"LIST ACTION = , 14, 'command', 20, 'mrows', ',
' ""'global.txt_menu_new'"", ',
' ""'global.txt_menu_load'"", ',
' ""'global.txt_menu_save'"", ',
' ""'global.txt_menu_fhand'"", ',
' ""'global.txt_menu_line'"", ',
' ""'global.txt_menu_edit'"", ',
' ""'global.txt_menu_movrs'"", ',
' ""'global.txt_menu_char'"", ',
' ""'global.txt_menu_crot'"", ',
' ""'global.txt_menu_cshr'"", ',
' ""'global.txt_menu_cbold'"", ',
' ""'global.txt_menu_cresz'"", ',
' ""'global.txt_menu_data'"", ',
' ""'global.txt_menu_prview'"" ',
' VSPACE = 4 ',
' INTSTR = ""'global.txt_gad_count'"", 1, 32000, 'global.count' ',
' VSPACE = 2 ',
' CYCLE = ""'global.txt_gad_direct'"", 3, 'global.direct', ""'global.txt_gad_dirct.0'"", ""'global.txt_gad_dirct.1'"", ""'global.txt_gad_dirct.2'"" ' ||,
' VSPACE = 2 ',
' CHECK = ""'global.txt_gad_add'"", 'global.add' ' ||,
' VSPACE = 2 ',
' ACTION = ""'global.txt_gad_draw'"" ',
' ACTION = ""'global.txt_gad_quit'"" "'
IF RC = 0 THEN DO
command = RESULT.1
global.count = RESULT.2
global.direct = RESULT.3
global.add = RESULT.4
IF RESULT = 1 THEN DO /* Draw */
IF DrawIt() THEN
LEAVE
END
ELSE IF RESULT = 2 THEN /* Quit */
LEAVE
ELSE DO /* Command List */
IF command = 0 THEN CALL NewPath
ELSE IF command = 1 THEN CALL LoadPath
ELSE IF command = 2 THEN CALL SavePath
ELSE IF command = 3 THEN CALL DefFreehand
ELSE IF command = 4 THEN CALL DefLinear
ELSE IF command = 5 THEN CALL EditPath
ELSE IF command = 6 THEN CALL MoveResizePath
ELSE IF command = 7 THEN CALL CharSettings
ELSE IF command = 8 THEN CALL RotSettings
ELSE IF command = 9 THEN CALL ShearSettings
ELSE IF command = 10 THEN CALL BoldSettings
ELSE IF command = 11 THEN CALL ResizeSettings
ELSE IF command = 12 THEN CALL DisplayData
ELSE IF command = 13 THEN CALL PreviewPath
END
END
END
CALL SavePathFile(tmpname)
CALL Break_C
EXIT 0
DefData: PROCEDURE EXPOSE global.
global.count = 10
global.direct = 0
global.add = 1
global.fontpath = 'FONTS:'
global.font = 'CGTimes'
global.char = 'A'
global.size = '45'
global.handle = 1
global.aalias = 0
global.rotats = 1
global.fromang = 0 * 10000
global.toang = 0 * 10000
global.rotdir = 0
global.shears = 1
global.fromsh = 0 * 10000
global.tosh = 0 * 10000
global.resizes = 1
global.fromrs = 100 * 10000
global.tors = 100 * 10000
global.bolds = 1
global.frombdx = 0 * 10000
global.tobdx = 0 * 10000
global.frombdy = 0 * 10000
global.tobdy = 0 * 10000
global.points = 0
DROP global.xcoord. global.ycoord.
RETURN
NewPath: PROCEDURE EXPOSE global.
RequestResponse 'TITLE "'global.txt_title_new'" PROMPT "'global.txt_err_lost'"'
IF RC = 0 THEN DO
IF global.points > 0 THEN
CALL XorPath
CALL DefData
END
RETURN
LoadPathFile: PROCEDURE EXPOSE global.
ok = 0
IF OPEN('pfile', ARG(1), 'R') THEN DO
LockGUI
IF READLN('pfile') = 'PPAINT CPATH' THEN DO
IF READLN('pfile') = '1' THEN DO
global.count = READLN('pfile')
global.direct = READLN('pfile')
global.add = READLN('pfile')
global.fontpath = READLN('pfile')
global.font = READLN('pfile')
global.char = READLN('pfile')
global.size = READLN('pfile')
global.handle = READLN('pfile')
global.aalias = READLN('pfile')
global.rotats = READLN('pfile')
global.fromang = READLN('pfile')
global.toang = READLN('pfile')
global.rotdir = READLN('pfile')
global.shears = READLN('pfile')
global.fromsh = READLN('pfile')
global.tosh = READLN('pfile')
global.resizes = READLN('pfile')
global.fromrs = READLN('pfile')
global.tors = READLN('pfile')
global.bolds = READLN('pfile')
global.frombdx = READLN('pfile')
global.tobdx = READLN('pfile')
global.frombdy = READLN('pfile')
global.tobdy = READLN('pfile')
global.points = READLN('pfile')
DO point = 0 FOR global.points
xy = READLN('pfile')
PARSE VAR xy global.xcoord.point global.ycoord.point .
END
ok = 1
END
END
CALL CLOSE('pfile')
UnlockGUI
END
RETURN ok
LoadPath: PROCEDURE EXPOSE global.
RequestFile 'TITLE "'global.txt_title_load'"'
IF RC = 0 THEN DO
PARSE VALUE RESULT WITH '"' pfilename '"'
IF global.points > 0 THEN DO
CALL XorPath
CALL DefData
END
IF LoadPathFile(pfilename) THEN
CALL XorPath
ELSE DO
CALL DefData
RequestNotify 'TITLE "'global.txt_title_load'" PROMPT "'global.txt_err_load'"'
END
END
RETURN
SavePathFile: PROCEDURE EXPOSE global.
ok = 0
IF OPEN('pfile', ARG(1), 'W') THEN DO
LockGUI
CALL WRITELN('pfile', 'PPAINT CPATH')
CALL WRITELN('pfile', '1') /* version */
CALL WRITELN('pfile', global.count)
CALL WRITELN('pfile', global.direct)
CALL WRITELN('pfile', global.add)
CALL WRITELN('pfile', global.fontpath)
CALL WRITELN('pfile', global.font)
CALL WRITELN('pfile', global.char)
CALL WRITELN('pfile', global.size)
CALL WRITELN('pfile', global.handle)
CALL WRITELN('pfile', global.aalias)
CALL WRITELN('pfile', global.rotats)
CALL WRITELN('pfile', global.fromang)
CALL WRITELN('pfile', global.toang)
CALL WRITELN('pfile', global.rotdir)
CALL WRITELN('pfile', global.shears)
CALL WRITELN('pfile', global.fromsh)
CALL WRITELN('pfile', global.tosh)
CALL WRITELN('pfile', global.resizes)
CALL WRITELN('pfile', global.fromrs)
CALL WRITELN('pfile', global.tors)
CALL WRITELN('pfile', global.bolds)
CALL WRITELN('pfile', global.frombdx)
CALL WRITELN('pfile', global.tobdx)
CALL WRITELN('pfile', global.frombdy)
CALL WRITELN('pfile', global.tobdy)
CALL WRITELN('pfile', global.points)
DO point = 0 FOR global.points
CALL WRITELN('pfile', global.xcoord.point' 'global.ycoord.point)
END
ok = 1
CALL CLOSE('pfile')
UnlockGUI
END
RETURN ok
SavePath: PROCEDURE EXPOSE global.
IF global.points = 0 THEN DO
RequestNotify 'TITLE "'global.txt_title_save'" PROMPT "'global.txt_err_nopath'"'
RETURN
END
RequestFile 'TITLE "'global.txt_title_save'" SAVEMODE'
IF RC = 0 THEN DO
PARSE VALUE RESULT WITH '"' pfilename '"'
IF ~SavePathFile(pfilename) THEN
RequestNotify 'TITLE "'global.txt_title_save'" PROMPT "'global.txt_err_save'"'
END
RETURN
XorVertex: PROCEDURE EXPOSE global.
point = ARG(1)
IF point > 0 THEN DO
IF point = 1 THEN
nfp = ''
ELSE
nfp = 'NOFIRSTPIXEL'
ppt = point - 1
DrawLine global.xcoord.ppt global.ycoord.ppt global.xcoord.point global.ycoord.point 'COMPLEMENT' nfp
END
npt = point + 1
IF npt < global.points THEN DO
IF point = 0 THEN
nfp = ''
ELSE
nfp = 'NOFIRSTPIXEL'
DrawLine global.xcoord.point global.ycoord.point global.xcoord.npt global.ycoord.npt 'COMPLEMENT' nfp
END
RETURN
EditPath: PROCEDURE EXPOSE global.
IF global.points = 0 THEN DO
RequestNotify 'TITLE "'global.txt_title_edit'" PROMPT "'global.txt_err_nopath'"'
RETURN
END
SetPointer 'DATA ',
'"0xC000,0x7000,0x3C00,0x3F00,0x1F00,0x1E00,0x0B00,0x0980,',
' 0x0080,0x0000,0x0018,0x003C,0x0018,',
' 0x4000,0xB000,0x4C00,0x4300,0x2000,0x2200,0x1500,0x1280,',
' 0x0100,0x0000,0x0028,0x0044,0x0028" ',
'HEIGHT 13 OFFSETX -1 OFFSETY 0'
DO FOREVER
WaitForClick 'DOWN POINT SHOWBRUSH'
IF RC = 0 THEN DO
PARSE VAR RESULT button xp yp .
IF button > 1 THEN
LEAVE
mindist = 30000
DO point = 0 FOR global.points
GetDistance xp yp global.xcoord.point global.ycoord.point 'IMAGERATIO'
IF RESULT < mindist THEN DO
mindist = RESULT
mindpt = point
END
END
point = mindpt
prev_xp = xp
prev_yp = yp
drawn = 0
DO FOREVER
GetMousePosition
PARSE VAR RESULT xp yp .
IF xp ~= prev_xp | yp ~= prev_yp | ~drawn THEN DO
CALL XorVertex(point)
global.xcoord.point = xp
global.ycoord.point = yp
CALL XorVertex(point)
prev_xp = xp
prev_yp = yp
drawn = 1
END
ELSE WaitForEvent
GetMouseButton
IF RESULT = 0 THEN
LEAVE
END
END
ELSE LEAVE
END
SetPointer
RETURN
MoveResizePath: PROCEDURE EXPOSE global.
IF global.points = 0 THEN DO
RequestNotify 'TITLE "'global.txt_title_movrs'" PROMPT "'global.txt_err_nopath'"'
RETURN
END
SetPointer 'DATA ',
'"0xC000,0x7000,0x3C00,0x3F00,0x1FC0,0x1FC0,0x0F00,0x0D80,',
' 0x04C0,0x0460,0x0020,',
' 0x4000,0xB000,0x4C00,0x4300,0x20C0,0x2000,0x1100,0x1280,',
' 0x0940,0x08A0,0x0040" ',
'HEIGHT 11 OFFSETX -1 OFFSETY 0'
minx = 32000
miny = 32000
maxx = -32000
maxy = -32000
DO point = 0 FOR global.points
IF global.xcoord.point < minx THEN minx = global.xcoord.point
IF global.xcoord.point > maxx THEN maxx = global.xcoord.point
IF global.ycoord.point < miny THEN miny = global.ycoord.point
IF global.ycoord.point > maxy THEN maxy = global.ycoord.point
origxc.point = global.xcoord.point
origyc.point = global.ycoord.point
END
w1 = maxx - minx
h1 = maxy - miny
minx00 = minx
miny00 = miny
w100 = w1
h100 = h1
DO FOREVER
WaitForClick 'DOWN POINT'
IF RC = 0 THEN DO
PARSE VAR RESULT button xp yp .
IF button > 1 THEN
LEAVE
resize = (xp > minx+w1/2 & yp > miny+h1/2)
IF resize THEN DO
SetPointer 'DATA ',
'"0xC000,0x7000,0x3C00,0x3F00,0x1F00,0x1E00,0x0B00,0x0980,',
' 0x00E0,0x00A0,0x00FE,0x0022,0x0022,0x0022,0x003E,',
' 0x4000,0xB000,0x4C00,0x4300,0x2000,0x2200,0x1500,0x1280,',
' 0x0100,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000" ',
'HEIGHT 15 OFFSETX -1 OFFSETY 0'
w10 = w1
h10 = h1
END
ELSE DO
minx0 = minx
miny0 = miny
END
CALL XorPath
DrawRectangle minx miny maxx maxy 'COMPLEMENT'
prev_xp = xp
prev_yp = yp
DO FOREVER
GetMousePosition
PARSE VAR RESULT xp yp .
IF xp ~= prev_xp | yp ~= prev_yp THEN DO
DrawRectangle minx miny maxx maxy 'COMPLEMENT'
IF resize THEN DO
w1 = w1 + (xp - prev_xp)
h1 = h1 + (yp - prev_yp)
IF w1 < 1 THEN w1 = 1
IF h1 < 1 THEN h1 = 1
maxx = minx + w1
maxy = miny + h1
END
ELSE DO
minx = minx + (xp - prev_xp)
miny = miny + (yp - prev_yp)
maxx = minx + w1
maxy = miny + h1
END
DrawRectangle minx miny maxx maxy 'COMPLEMENT'
prev_xp = xp
prev_yp = yp
END
ELSE WaitForEvent
GetMouseButton
IF RESULT = 0 THEN
LEAVE
END
DrawRectangle minx miny maxx maxy 'COMPLEMENT'
IF resize THEN DO
IF w10 ~= w1 | h10 ~= h1 THEN DO
mx = w1 / w100
my = h1 / h100
DO point = 0 FOR global.points
global.xcoord.point = minx + TRUNC((origxc.point - minx00) * mx)
global.ycoord.point = miny + TRUNC((origyc.point - miny00) * my)
END
END
SetPointer 'DATA ',
'"0xC000,0x7000,0x3C00,0x3F00,0x1FC0,0x1FC0,0x0F00,0x0D80,',
' 0x04C0,0x0460,0x0020,',
' 0x4000,0xB000,0x4C00,0x4300,0x20C0,0x2000,0x1100,0x1280,',
' 0x0940,0x08A0,0x0040" ',
'HEIGHT 11 OFFSETX -1 OFFSETY 0'
END
ELSE DO
IF minx ~= minx0 | miny ~= miny0 THEN DO
dx = minx - minx0
dy = miny - miny0
DO point = 0 FOR global.points
global.xcoord.point = global.xcoord.point + dx
global.ycoord.point = global.ycoord.point + dy
END
END
END
CALL XorPath
END
ELSE LEAVE
END
SetPointer
RETURN
SetFirstChar: PROCEDURE EXPOSE global.
SetCurrentBrush 'BRUSH' global.tbshnum
IF RC ~= 0 THEN
RETURN
global.rot_ang = global.fromang
global.shear = global.fromsh
global.bold_x = global.frombdx
global.bold_y = global.frombdy
global.resize = global.fromrs
IF CreateCharacter(0) THEN DO
SetPaintMode 'COLOR'
SetPen 'FOREGROUND' global.savepen
RETURN 1
END
RETURN 0
DefFreehand: PROCEDURE EXPOSE global.
LockGUI
IF global.points > 0 THEN DO
CALL XorPath
DROP global.xcoord. global.ycoord.
global.points = 0
END
IF ~SetFirstChar() THEN DO
RequestNotify 'TITLE "'global.txt_title_fhand'" PROMPT "'global.txt_err_rend'"'
UnlockGUI
RETURN
END
UnlockGUI
button = 0
WaitForClick 'DOWN POINT SHOWBRUSH'
IF RC = 0 THEN
PARSE VAR RESULT button x0 y0 .
FreeBrush 'FORCE QUIET'
SetCurrentBrush 'RECTANGULAR WIDTH 1 HEIGHT 1'
SetPen 'FOREGROUND' global.xorpen
IF button > 0 THEN DO
prev_xp = x0
prev_yp = y0
global.xcoord.0 = x0
global.ycoord.0 = y0
point = 1
DO FOREVER
GetMousePosition
PARSE VAR RESULT xp yp .
IF xp ~= prev_xp | yp ~= prev_yp THEN DO
IF point = 1 THEN
nfp = ''
ELSE
nfp = 'NOFIRSTPIXEL'
DrawLine prev_xp prev_yp xp yp 'COMPLEMENT' nfp
global.xcoord.point = xp
global.ycoord.point = yp
point = point + 1
prev_xp = xp
prev_yp = yp
END
ELSE WaitForEvent
GetMouseButton
IF RESULT ~= button THEN
LEAVE
END
IF point = 1 THEN DO
point = 2
global.xcoord.1 = global.xcoord.0
global.ycoord.1 = global.ycoord.0
END
global.points = point
END
RETURN
DefLinear: PROCEDURE EXPOSE global.
LockGUI
IF global.points > 0 THEN DO
CALL XorPath
DROP global.xcoord. global.ycoord.
global.points = 0
END
IF ~SetFirstChar() THEN DO
RequestNotify 'TITLE "'global.txt_title_fhand'" PROMPT "'global.txt_err_rend'"'
UnlockGUI
RETURN
END
UnlockGUI
button = 0
WaitForClick 'DOWN POINT SHOWBRUSH'
IF RC = 0 THEN
PARSE VAR RESULT button x0 y0 .
FreeBrush 'FORCE QUIET'
SetCurrentBrush 'RECTANGULAR WIDTH 1 HEIGHT 1'
SetPen 'FOREGROUND' global.xorpen
IF button > 0 THEN DO
prev_xp = x0
prev_yp = y0
global.xcoord.0 = x0
global.ycoord.0 = y0
drawn = 0
DO FOREVER
GetMousePosition
PARSE VAR RESULT xp yp .
IF xp ~= prev_xp | yp ~= prev_yp | ~drawn THEN DO
IF drawn THEN
Undo
DrawLine x0 y0 xp yp 'COMPLEMENT'
global.xcoord.1 = xp
global.ycoord.1 = yp
prev_xp = xp
prev_yp = yp
drawn = 1
END
ELSE WaitForEvent
GetMouseButton
IF RESULT ~= button THEN
LEAVE
END
global.points = 2
END
RETURN
InitStep: PROCEDURE EXPOSE global.
IF global.points = 2 THEN DO
IF global.count > 1 THEN DO
global.line_xs = (global.xcoord.1 - global.xcoord.0) / (global.count - 1)
global.line_ys = (global.ycoord.1 - global.ycoord.0) / (global.count - 1)
END
ELSE DO
global.line_xs = 0
global.line_ys = 0
END
global.line_xp = global.xcoord.0
global.line_yp = global.ycoord.0
END
ELSE DO
global.point_s = global.points / global.count
global.point_p = 0
END
IF global.fromang ~= global.toang | global.rotats > 1 THEN DO
global.do_rot = 1
IF global.fromang > global.toang & global.rotdir = 0 THEN
rotdeg = (3600000 - global.fromang) + global.toang
ELSE IF global.fromang < global.toang & global.rotdir = 1 THEN
rotdeg = global.fromang + (3600000 - global.toang)
ELSE
rotdeg = ABS(global.toang - global.fromang)
rotdeg = rotdeg + ((global.rotats - 1) * 3600000)
IF global.count > 1 THEN
global.rot_step = rotdeg / (global.count - 1)
ELSE
global.rot_step = 0
IF global.rotdir > 0 THEN
global.rot_step = -global.rot_step
END
ELSE
global.do_rot = 0
global.rot_ang = global.fromang
IF global.fromsh ~= global.tosh | global.shears > 1 THEN DO
global.do_shear = 1
shr_deg = ABS(global.tosh - global.fromsh)
IF global.count > 1 THEN
global.shear_s = (shr_deg * global.shears) / (global.count - 1)
ELSE
global.shear_s = 0
IF global.tosh < global.fromsh THEN
global.shear_s = -global.shear_s
global.min_sh = MIN(global.fromsh, global.tosh)
global.max_sh = MAX(global.fromsh, global.tosh)
END
ELSE
global.do_shear = 0
global.shear = global.fromsh
IF global.frombdx ~= global.tobdx | global.frombdy ~= global.tobdy | global.bolds > 1 THEN DO
global.do_bold = 1
boldx = ABS(global.tobdx - global.frombdx)
IF global.count > 1 THEN
global.bold_sx = (boldx * global.bolds) / (global.count - 1)
ELSE
global.bold_sx = 0
IF global.tobdx < global.frombdx THEN
global.bold_sx = -global.bold_sx
global.min_bdx = MIN(global.frombdx, global.tobdx)
global.max_bdx = MAX(global.frombdx, global.tobdx)
boldy = ABS(global.tobdy - global.frombdy)
IF global.count > 1 THEN
global.bold_sy = (boldy * global.bolds) / (global.count - 1)
ELSE
global.bold_sy = 0
IF global.tobdy < global.frombdy THEN
global.bold_sy = -global.bold_sy
global.min_bdy = MIN(global.frombdy, global.tobdy)
global.max_bdy = MAX(global.frombdy, global.tobdy)
END
ELSE
global.do_bold = 0
global.bold_x = global.frombdx
global.bold_y = global.frombdy
IF global.fromrs ~= global.tors | global.resizes > 1 THEN DO
global.do_resize = 1
resz = ABS(global.tors - global.fromrs)
IF global.count > 1 THEN
global.resize_s = (resz * global.resizes) / (global.count - 1)
ELSE
global.resize_s = 0
IF global.tors < global.fromrs THEN
global.resize_s = -global.resize_s
global.min_rs = MIN(global.fromrs, global.tors)
global.max_rs = MAX(global.fromrs, global.tors)
END
ELSE
global.do_resize = 0
global.resize = global.fromrs
RETURN
GetStep: PROCEDURE EXPOSE global.
IF global.points = 2 THEN DO
xp = TRUNC(global.line_xp + 0.5)
yp = TRUNC(global.line_yp + 0.5)
END
ELSE DO
point = TRUNC(global.point_p + 0.5)
xp = global.xcoord.point
yp = global.ycoord.point
END
RETURN xp yp
CreateCharacter: PROCEDURE EXPOSE global.
antialias = ARG(1)
ang = TRUNC(global.rot_ang / 10 + 0.5)
shr = TRUNC(global.shear / 10 + 0.5 * SIGN(global.shear))
bldx = TRUNC(global.bold_x / 10 + 0.5 * SIGN(global.bold_x))
bldy = TRUNC(global.bold_y / 10 + 0.5 * SIGN(global.bold_y))
IF global.resize ~= 1000000 THEN DO
siz = TRUNC(global.size * (global.resize / 1000000) + 0.5)
IF siz < 1 THEN
siz = 1
END
ELSE siz = global.size
IF global.char = '"' THEN
chr = '""'
ELSE
chr = global.char
VectorCharacter 'CHARACTER "'chr'" FONTPATH "'global.fontpath'" FONTNAME "'global.font'" HEIGHT 'siz' ANGLE 'ang' SHEAR 'shr' BOLDX 'bldx' BOLDY 'bldy' ANTIALIAS 'antialias
IF RC = 0 THEN DO
PARSE VAR RESULT . . hx hy .
IF global.handle = 1 THEN
SetBrushAttributes 'HANDLEX 'hx' HANDLEY 'hy
ELSE IF global.handle = 2 THEN DO
GetBrushAttributes 'BOUNDARIES'
PARSE VAR RESULT x0 y0 x1 y1 .
SetBrushAttributes 'HANDLEX 'x0+((x1-x0+1)%2)' HANDLEY 'y0+((y1-y0+1)%2)
END
RETURN 1
END
RETURN 0
PreviewStep: PROCEDURE EXPOSE global.
IF CreateCharacter(0) THEN DO
SetPaintMode 'COLOR'
Undo global.prvwundo
IF ~global.add & global.prvwundo ~= 0 THEN DO
IF global.direct = 0 THEN
SetFramePosition 'NEXT'
ELSE IF global.direct = 1 THEN
SetFramePosition 'PREVIOUS'
END
PutBrush ARG(1)
global.prvwundo = 1
RETURN 1
END
RETURN 0
NextStep: PROCEDURE EXPOSE global.
IF global.points = 2 THEN DO
global.line_xp = global.line_xp + global.line_xs
global.line_yp = global.line_yp + global.line_ys
END
ELSE
global.point_p = global.point_p + global.point_s
IF global.do_rot THEN
global.rot_ang = global.rot_ang + global.rot_step
IF global.do_shear THEN DO
global.shear = global.shear + global.shear_s
IF global.shear_s > 0 THEN DO
IF global.shear > global.max_sh THEN DO
excd = global.shear - global.max_sh
global.shear = global.max_sh - excd
global.shear_s = -global.shear_s
END
END
ELSE DO
IF global.shear < global.min_sh THEN DO
excd = global.min_sh - global.shear
global.shear = global.min_sh + excd
global.shear_s = -global.shear_s
END
END
END
IF global.do_bold THEN DO
global.bold_x = global.bold_x + global.bold_sx
IF global.bold_sx > 0 THEN DO
IF global.bold_x > global.max_bdx THEN DO
excd = global.bold_x - global.max_bdx
global.bold_x = global.max_bdx - excd
global.bold_sx = -global.bold_sx
END
END
ELSE DO
IF global.bold_x < global.min_bdx THEN DO
excd = global.min_bdx - global.bold_x
global.bold_x = global.min_bdx + excd
global.bold_sx = -global.bold_sx
END
END
global.bold_y = global.bold_y + global.bold_sy
IF global.bold_sy > 0 THEN DO
IF global.bold_y > global.max_bdy THEN DO
excd = global.bold_y - global.max_bdy
global.bold_y = global.max_bdy - excd
global.bold_sy = -global.bold_sy
END
END
ELSE DO
IF global.bold_y < global.min_bdy THEN DO
excd = global.min_bdy - global.bold_y
global.bold_y = global.min_bdy + excd
global.bold_sy = -global.bold_sy
END
END
END
IF global.do_resize THEN DO
global.resize = global.resize + global.resize_s
IF global.resize_s > 0 THEN DO
IF global.resize > global.max_rs THEN DO
excd = global.resize - global.max_rs
global.resize = global.max_rs - excd
global.resize_s = -global.resize_s
END
END
ELSE DO
IF global.resize < global.min_rs THEN DO
excd = global.min_rs - global.resize
global.resize = global.min_rs + excd
global.resize_s = -global.resize_s
END
END
END
RETURN
PreviewBegin: PROCEDURE EXPOSE global.
SetCurrentBrush 'BRUSH' global.tbshnum
SetPen 'FOREGROUND' global.savepen
GetFramePosition
IF RC = 0 THEN
global.savefrpos = RESULT
ELSE
global.savefrpos = 0
global.prvwundo = 0
RETURN
PreviewEnd: PROCEDURE EXPOSE global.
Undo global.prvwundo
FreeBrush 'FORCE QUIET'
SetCurrentBrush 'RECTANGULAR WIDTH 1 HEIGHT 1'
SetPen 'FOREGROUND' global.xorpen
IF global.savefrpos > 0 THEN
SetFramePosition global.savefrpos
RETURN
PreviewPath: PROCEDURE EXPOSE global.
IF global.points = 0 THEN DO
RequestNotify 'TITLE "'global.txt_title_pview'" PROMPT "'global.txt_err_nopath'"'
RETURN
END
LockGUI
CALL XorPath
CALL InitStep
CALL PreviewBegin
DO cnt = 1 to global.count
IF ~PreviewStep( GetStep() ) THEN DO
RequestNotify 'TITLE "'global.txt_title_pview'" PROMPT "'global.txt_err_rend'"'
LEAVE
END
Wait 'TIME 200'
CALL NextStep()
END
Wait 'TIME 200'
CALL PreviewEnd
CALL XorPath
UnlockGUI
RETURN
DrawStep: PROCEDURE EXPOSE global.
IF CreateCharacter(global.aalias) THEN DO
pos = ARG(1)
PARSE VAR pos px py .
SetPaintMode 'COLOR'
IF global.aalias > 0 THEN DO
Process 'IMAGE BRUSHMODE X0 'px' Y0 'py' FILTER "Brush Alpha Channel (Single)" NOFS'
IF RC ~= 0 THEN DO
IF RC ~= 5 THEN
RequestNotify 'PROMPT "'global.txt_err_rend'('RC')"'
RETURN 0
END
END
ELSE PutBrush px py
global.prvwundo = 1
RETURN 1
END
RETURN 0
DrawIt: PROCEDURE EXPOSE global.
IF global.points = 0 THEN DO
RequestNotify 'TITLE "'global.txt_title_draw'" PROMPT "'global.txt_err_nopath'"'
RETURN 0
END
LockGUI
CALL XorPath
CALL InitStep
global.pathdisp = 0
SetCurrentBrush 'BRUSH' global.tbshnum
SetPen 'FOREGROUND' global.savepen
IF global.add THEN DO
GetFramePosition
IF RC = 0 THEN
frpos = RESULT
ELSE
frpos = 0
AddFrames global.count
IF global.direct = 1 THEN
SetFramePosition frpos + global.count
END
DO cnt = 1 to global.count
IF ~DrawStep( GetStep() ) THEN DO
RequestNotify 'TITLE "'global.txt_title_draw'" PROMPT "'global.txt_err_rend'"'
LEAVE
END
IF global.direct = 0 THEN
SetFramePosition 'NEXT'
ELSE IF global.direct = 1 THEN
SetFramePosition 'PREVIOUS'
CALL NextStep()
END
FreeBrush 'FORCE QUIET'
SetCurrentBrush 'RECTANGULAR WIDTH 1 HEIGHT 1'
SetPen 'FOREGROUND' global.xorpen
UnlockGUI
RETURN 1
CharSettings: PROCEDURE EXPOSE global.
IF global.fontnum = 0 THEN DO
LockGUI
global.fontpath = LoadSet('PP_VectorPath', global.fontpath, 1, 0)
ftot = 0
vftfname = 'ENV:PP_VectorFonts'
IF ~OPEN(fexists, vftfname) THEN DO
ADDRESS COMMAND 'List >'vftfname' 'global.fontpath' PAT=#?.otag NOHEAD LFORMAT="%s"'
ADDRESS COMMAND 'Sort 'vftfname vftfname'.s'
IF RC = 0 THEN DO
ADDRESS COMMAND 'Delete >NIL: 'vftfname
ADDRESS COMMAND 'Copy >NIL: 'vftfname'.s' vftfname
ADDRESS COMMAND 'Delete >NIL: 'vftfname'.s'
END
END
ELSE CALL CLOSE(fexists)
IF OPEN('listfile', vftfname) THEN DO
DO FOREVER
fline = READLN('listfile')
IF EOF('listfile') THEN BREAK
ftot = ftot + 1
global.fontname.ftot = LEFT(fline, LENGTH(fline) - 5)
END
CALL CLOSE('listfile')
END
UnlockGUI
IF ftot = 0 THEN DO
RequestNotify 'PROMPT "'global.txt_err_nofonts'"'
RETURN
END
global.fontnum = ftot
END
selfont = 0
DO f = 1 TO global.fontnum
IF UPPER(global.fontname.f) = UPPER(global.font) THEN DO
selfont = f - 1
LEAVE
END
END
req = '"LIST = ""'global.txt_gad_font'"", 'global.fontnum', 'selfont', 20, 5'
DO f = 1 TO global.fontnum
req = req || ', ""' || global.fontname.f || '""'
END
req = req ||,
' VSPACE = 2 ' ||,
'STRING = ""'global.txt_gad_char'"", 2, ""'global.char'"" ' ||,
'VSPACE = 2 ' ||,
'INTSTR = ""'global.txt_gad_size'"", 1, 32000, 'global.size' ' ||,
'VSPACE = 2 ' ||,
'CYCLE = ""'global.txt_gad_handle'"", 3, 'global.handle', ""'global.txt_gad_handl.0'"", ""'global.txt_gad_handl.1'"", ""'global.txt_gad_handl.2'"" ' ||,
'VSPACE = 2 ' ||,
'CYCLE = ""'global.txt_gad_aalias'"", 4, 'global.aalias', ""'global.txt_gad_aals.0'"", ""'global.txt_gad_aals.1'"", ""'global.txt_gad_aals.2'"", ""'global.txt_gad_aals.3'"" ' ||,
'VSPACE = 2 "'
Request 'RESIZE COMPACT "'global.txt_title_char'" 'req
IF RC = 0 THEN DO
fn = RESULT.1 + 1
global.font = global.fontname.fn
global.char = RESULT.2
global.size = RESULT.3
global.handle = RESULT.4
global.aalias = RESULT.5
END
RETURN
RotSettings: PROCEDURE EXPOSE global.
Request '"'global.txt_title_crot'" ',
'"INTSTR = ""'global.txt_gad_rotats'"", 1, 32000, 'global.rotats' ',
' INT10000STR = ""'global.txt_gad_fromang'"", 0, 3590000, 'global.fromang' ',
' INT10000STR = ""'global.txt_gad_toang'"", 0, 3590000, 'global.toang' ',
' CYCLE = ""'global.txt_gad_rotdir'"", 2, 'global.rotdir', ""'global.txt_gad_rotdr.0'"", ""'global.txt_gad_rotdr.1'"" "'
IF RC = 0 THEN DO
global.rotats = RESULT.1
global.fromang = RESULT.2
global.toang = RESULT.3
global.rotdir = RESULT.4
END
RETURN
ShearSettings: PROCEDURE EXPOSE global.
Request '"'global.txt_title_cshr'" ',
'"INTSTR = ""'global.txt_gad_shears'"", 1, 32000, 'global.shears' ',
' INT10000STR = ""'global.txt_gad_fromsh'"", -450000, 450000, 'global.fromsh' ',
' INT10000STR = ""'global.txt_gad_tosh'"", -450000, 450000, 'global.tosh' "'
IF RC = 0 THEN DO
global.shears = RESULT.1
global.fromsh = RESULT.2
global.tosh = RESULT.3
END
RETURN
ResizeSettings: PROCEDURE EXPOSE global.
Request '"'global.txt_title_cresz'" ',
'"INTSTR = ""'global.txt_gad_resizes'"", 1, 32000, 'global.resizes' ',
' INT10000STR = ""'global.txt_gad_fromrs'"", 00100, 320000000, 'global.fromrs' ',
' INT10000STR = ""'global.txt_gad_tors'"", 00100, 320000000, 'global.tors' "'
IF RC = 0 THEN DO
global.resizes = RESULT.1
global.fromrs = RESULT.2
global.tors = RESULT.3
END
RETURN
BoldSettings: PROCEDURE EXPOSE global.
Request '"'global.txt_title_cbold'" ',
'"INTSTR = ""'global.txt_gad_bolds'"", 1, 32000, 'global.bolds' ',
' INT10000STR = ""'global.txt_gad_frombdx'"", -80000, 80000, 'global.frombdx' ',
' INT10000STR = ""'global.txt_gad_tobdx'"", -80000, 80000, 'global.tobdx' ',
' INT10000STR = ""'global.txt_gad_frombdy'"", -80000, 80000, 'global.frombdy' ',
' INT10000STR = ""'global.txt_gad_tobdy'"", -80000, 80000, 'global.tobdy' "'
IF RC = 0 THEN DO
global.bolds = RESULT.1
global.frombdx = RESULT.2
global.tobdx = RESULT.3
global.frombdy = RESULT.4
global.tobdy = RESULT.5
END
RETURN
DisplayData: PROCEDURE EXPOSE global.
direct = global.direct
add = global.add
rotdir = global.rotdir
handle = global.handle
antialias = global.aalias
str = COMPRESS(global.txt_gad_count, '_') global.count || '0A'x ||,
COMPRESS(global.txt_gad_direct, '_') global.txt_gad_dirct.direct || '0A'x ||,
COMPRESS(global.txt_gad_add, '_') global.txt_gad_noyes.add || '0A'x ||,
'0A'x ||,
COMPRESS(global.txt_gad_font, '_') global.font || '0A'x ||,
COMPRESS(global.txt_gad_char, '_') global.char || '0A'x ||,
COMPRESS(global.txt_gad_size, '_') global.size || '0A'x ||,
COMPRESS(global.txt_gad_handle, '_') global.txt_gad_handl.handle || '0A'x ||,
COMPRESS(global.txt_gad_aalias, '_') global.txt_gad_aals.antialias || '0A'x ||,
'0A'x ||,
COMPRESS(global.txt_gad_rotats, '_') global.rotats || '0A'x ||,
COMPRESS(global.txt_gad_fromang, '_') (global.fromang / 10000) || '0A'x ||,
COMPRESS(global.txt_gad_toang, '_') (global.toang / 10000) || '0A'x ||,
COMPRESS(global.txt_gad_rotdir, '_') global.txt_gad_rotdr.rotdir || '0A'x ||,
'0A'x ||,
COMPRESS(global.txt_gad_shears, '_') global.shears || '0A'x ||,
COMPRESS(global.txt_gad_fromsh, '_') (global.fromsh / 10000) || '0A'x ||,
COMPRESS(global.txt_gad_tosh, '_') (global.tosh / 10000) || '0A'x ||,
'0A'x ||,
COMPRESS(global.txt_gad_resizes, '_') global.resizes || '0A'x ||,
COMPRESS(global.txt_gad_fromrs, '_') (global.fromrs / 10000) || '0A'x ||,
COMPRESS(global.txt_gad_tors, '_') (global.tors / 10000) || '0A'x ||,
'0A'x ||,
COMPRESS(global.txt_gad_bolds, '_') global.bolds || '0A'x ||,
COMPRESS(global.txt_gad_frombdx, '_') global.frombdx || '0A'x ||,
COMPRESS(global.txt_gad_tobdx, '_') global.tobdx || '0A'x ||,
COMPRESS(global.txt_gad_frombdy, '_') global.frombdy || '0A'x ||,
COMPRESS(global.txt_gad_tobdy, '_') global.tobdy || '0A'x
pos = 1
DO FOREVER
pos = INDEX(str, '"', pos)
IF pos = 0 THEN
BREAK
str = INSERT('"', str, pos)
pos = pos + 2
END
IF global.points > 0 THEN DO
IF global.points = 2 THEN
ptype = 1
ELSE
ptype = 0
str = str ||,
'0A'x ||,
global.txt_msg_points global.points global.txt_msg_ptype.ptype || '0A'x ||,
'0A'x
DO point = 0 FOR global.points
str = str || global.xcoord.point','global.ycoord.point || '0A'x
END
END
RequestNotify '"'global.txt_title_data'" "'str'" SCROLL'
RETURN
XorPath: PROCEDURE EXPOSE global.
IF global.points > 0 THEN DO
xp = global.xcoord.0
yp = global.ycoord.0
last = global.points - 1
DO point = 1 TO last
IF point = 1 THEN
nfp = ''
ELSE
nfp = 'NOFIRSTPIXEL'
DrawLine xp yp global.xcoord.point global.ycoord.point 'COMPLEMENT' nfp
xp = global.xcoord.point
yp = global.ycoord.point
END
END
RETURN
LoadSet: PROCEDURE
sname = ARG(1)
def_val = ARG(2)
IF ARG() > 2 THEN
global_set = ARG(3)
ELSE
global_set = 0
IF ARG() > 3 THEN
request_quote = ARG(4)
ELSE
request_quote = 1
val = def_val
IF global_set THEN
set_fname = 'ENV:'sname
ELSE
set_fname = 'ENV:PP_AnimChar_'sname
IF OPEN('settingfile', set_fname, 'R') THEN DO
val = READCH('settingfile', 65535)
CALL CLOSE('settingfile')
END
IF request_quote THEN DO
/* encode quotes for the Request command ('"' -> '\""') */
qpos_start = 1
DO FOREVER
qpos = INDEX(val, '"', qpos_start)
IF qpos = 0 THEN BREAK
val = INSERT('\"', val, qpos-1)
qpos_start = qpos + 3
END
END
RETURN val
Cleanup: PROCEDURE EXPOSE global.
IF global.pathdisp THEN DO
LockGUI
CALL XorPath
UnlockGUI
END
RETURN
Break_C:
SetCurrentBrush 'RECTANGULAR WIDTH 1 HEIGHT 1'
SetPen 'FOREGROUND' global.xorpen
CALL Cleanup
LockGUI
SetPen 'FOREGROUND' global.savepen
SetCurrentBrush global.savebsh
SetPaintMode global.savepmode
IF global.savebshfr > 1 THEN
SetBrushAttributes 'FRAMEPOSITION' global.savebshfp
Set '"BARS='savebars'"'
Set '"GCLIP='saveclip'"'
Set '"COORD='savecoord'"'
EnableTools
UnlockGUI
RETURN